home *** CD-ROM | disk | FTP | other *** search
/ PC Electronic Plus / PC Electronics Plus (Most Significant Bits)(1995).ISO / resistor / conduit.bas < prev    next >
BASIC Source File  |  1988-06-10  |  2KB  |  66 lines
  1. 120   K1=.7854
  2. 130   DIM A$(60)
  3. 140   '
  4. 150   CLEARW 2
  5. 160   TL=0
  6. 170   PRINT:PRINT
  7. 180   INPUT"ENTER DIAMETER OF CABLE TO BE USED:  ";D
  8. 190   IF D>=3.84 THEN GOTO 200 ELSE GOTO 290
  9. 200   '
  10. 210   CLEARW 2
  11. 220   PRINT"SORRY, CABLE YOU SELECTED IS TOO LARGE TO FIT"
  12. 230   PRINT"A 6 INCH CONDUIT AND MEET THE"
  13. 240   PRINT"REQUIRMENTS OF THE NATIONAL ELECTRICAL CODE."
  14. 250   'LOCATE 15,20
  15. 260   PRINT"PRESS ANY KEY TO CONTINUE..."
  16. 270   INPUT A$
  17. 280   GOTO 650
  18. 290   CLEARW 2
  19. 300   'LOCATE 15,20
  20. 310   PRINT"CALCULATING....PLEASE WAIT...."
  21. 320   FOR N=1 TO 60
  22. 330   TL=TL+D^2
  23. 340   TA=K1*TL
  24. 350   IF TA<=.12 THEN A$(N)="1/2 INCH":GOTO 490
  25. 360   IF TA<=.21 THEN A$(N)="3/4 INCH":GOTO 490
  26. 370   IF TA<=.34 THEN A$(N)="1 INCH":GOTO 490
  27. 380   IF TA<=.6  THEN A$(N)="1.25 INCH":GOTO 490
  28. 390   IF TA<=.82 THEN A$(N)="1.5 INCH":GOTO 490
  29. 400   IF TA<=1.34 THEN A$(N)="2 INCH":GOTO 490
  30. 410   IF TA<=1.92 THEN A$(N)="2.5 INCH":GOTO 490
  31. 420   IF TA<=2.95 THEN A$(N)="3 INCH":GOTO 490
  32. 430   IF TA<=3.96 THEN A$(N)="3.5 INCH":GOTO 490
  33. 440   IF TA<=5.09 THEN A$(N)="4 INCH":GOTO 490
  34. 450   IF TA<=6.38 THEN A$(N)="4.5 INCH":GOTO 490
  35. 460   IF TA<=8    THEN A$(N)="5 INCH":GOTO 490
  36. 470   IF TA<=11.56 THEN A$(N)="6 INCH":GOTO 490
  37. 480   IF TA>11.56 THEN A$(N)="USE 2 CONDUITS":GOTO 490
  38. 490   NEXT N
  39. 500   CLEARW 2
  40. 510   H$="QUAN   CONDUIT REQ'D"
  41. 520   PRINT H$,H$,H$
  42. 530   PRINT STRING$(77,45)
  43. 540   FOR R=1 TO 20
  44. 550   FOR P=0 TO 2
  45. 560   'LOCATE (R+2),(1+(P*28))
  46. 570   PRINT (R=(20*P));
  47. 580   'LOCATE (R=2),(8+(P*28))
  48. 590   PRINT A$(R+(20*P));
  49. 600   NEXT P
  50. 610   NEXT R
  51. 620   PRINT STRING$(77,45)
  52. 630   PRINT"CHART FOR ";D;"INCH DIA. CABLE."
  53. 635   PRINT"PRESS ANY KEY TO CONTINUE..."
  54. 640   INPUT A$
  55. 650   CLEARW 2
  56. 660   PRINT"TO RUN AGAIN PRESS 'R' KEY"
  57. 670   PRINT"TO QUIT PRESS      'Q' KEY"
  58. 680   INPUT A$
  59. 690   IF LEFT$(A$,1)="R" OR LEFT$(A$,1)="r" THEN GOTO 150
  60. 700   ' From Sound and Video Contractor
  61. 710   ' JUNE 15, 1987
  62. 720   ' USED WITH PERMISSION
  63.  
  64. 730   ' copyright Intertec Publishing Corp who is not responsible
  65. 740   ' for the use of this program and/or any errors of any kind.
  66. Aî`ä!dA3ƒ½ônma╗ò▌1╪ìÉ≤┼└╪╒«óº╧▐⌠º